home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 June
/
64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64
/
listing 8-3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
745b
|
28 lines
10 rem *** hihat - effekt
11 :
12 :n1 = 937 :rem note 1
13 :n2 =1873 :rem note 2
19 :
20 rem * ton einschalten
21 :
22 s=54272:pokes+4,8:pokes+24,15 :rem volle lautstaerke poken
23 pokes+6,249:pokes+5,0 :rem adsr poken
29 :
40 rem * hihat !
41 :
43 rem ersten ton spielen
45 :
50 pokes+4,129:pokes+1,100 :rem hellen rausch-ton spielen (hihat)
52 pokes,n1and255:pokes+1,n1/256 :rem anschliessend normale tonhoehe poken
53 pokes+4,33:fori=1to50:next:pokes+4,32 :rem und den ton anschlagen
54 fori=1to100:next :rem warten
57 :
58 rem zweiten ton spielen
59 :
60 pokes+4,129:pokes+1,100 :rem hellen rausch-ton spielen (hihat)
62 pokes,n2and255:pokes+1,n2/256 :rem normale tonhoehe poken
63 pokes+4,33:fori=1to50:next:pokes+4,32 :rem und den ton anschlagen
64 fori=1to100:next :rem warten
69 :
70 goto50 :rem und zum anfang.